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000000000 
000060000 
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LL 000000 GGGGGGGG EEEEEEEEEE vv VV EEEEEEEEEE NN NN TTTTITTTIT 
LL 000000 GGGGGGGG EEEEEEEEEE vv VV EEEEEEEEEE NN NN TITTTTTTITT 
LL 00 00 GG EE VV VV EE NN NN TT 
LL 00 00 GG EE VV VV EE NN NN TT 
LL 00 00 GG EE VV VV EE NNNN NN TT 
LL 00 00 GG EE VV VV EE NNNN N TT 
LL 00 00 GG EEEEEEEE VV VV EEEEEEEE NN NN NN TT 
LL 00 00 GG EEEEEEEE VV VV EEEEEEEE NN NN NN TT 
LL 00 00 GG GGGGGG EE VV VV EE NN NNNN TT 
LL 00 00 GG GGGGGG EE VV vv EE NN NNNN TT 
LL 00 00 GG EE VV VV EE NN NN TT 
LL 00 00 GG GG EE VW WV EE NN NN TT 
LLLLLLLLLL 000000 GGGGGG EEEEEEEEEE VV EEEEEEEEEE NN NN TT 
LLLLLLLLLL 000000 GGGGGG EEEEEEEEEE VV EEEEEEEEEE NN NN TT 
LL IIIIII SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL IIIII] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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' FACILITY: 
OPCOM 
i ABSTRACT: 


This module contains all the various and sundry general 
purpose utility routines used by OPCOM's request handlers. 


SOOOCOCOOSOOSOSOOSOOSOOOOOOOOOOOOCOOOCOOOOOoOoOO 
SOOO Coceoooooooooooooo 


Ww 


' 

' 

i 

' 

1 

' 

' 

' 

' 

' 

; Environment: 

VAX/VMS operating system. 

Author: 

Steven T. Jeffreys 

' Creation date: 

March 10, 1981 

i Revision history: 

: VO3-005 CWH3169 CW Hobbs 5-May-1984 
: Second pass for cluster-wide OPCOM: 

- Add an explanation to DUMP LOG_FILE and WRITE _LOG_FILE 
' 


messages so that users won’t bother us unless something 
s really wrong. 


NOUS WN 0 OONAUE WR O OONAUES WN ("OO ONAUS WN OC OONOUEWWR (OD ONOUSWN = 
fale lee ele el ele ale ele elelelelelelelolelelelelelelelelelololelol ool elo oles olele ole ele ele |e ole ola a) 


PUPP VT BS BS BS BB BE EB BAAN NII PO PON NPONINPONPNYDD 2 OS OS 
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; 0058 ! 

; 0059 ' V03-004 RSHO117 R. Scott Hanna 14-Mar-1983 

3 BRed LOG_MESSAGE / Increase local buffer size to OPCSK_MAXMESSAGE. 

5 44 : V03-003 CWH3003 CW Hobbs 16-Sep-1983 

; 006 : Increase size of local buffer, print blank Line as separate 

3 Boe 8 records instead of using <CR><LF>. 

; Bpe8 9} V03-002 CWH3001 CW Hobbs : 30-Jul-1983 

: 067 0! Various and sundry things to make OPCOM distributed 

; Bpes 0 } across the cluster. 

: 0070 0 ! v03-001 $TJ3032 Steven T. Jeffreys, 05-0ct-1982 

; fa 8 Set GBLSTS_K_FLUSH_PENDIND when writing to the logfile. 

; $078 0 ! v02-002 $TJ0160 Steven T. Jeffreys, 08-Feb-1982 

: 0074 0! Jiggle the message size and pointer so that the ‘bell’ , 

3 Boe 8 character on front of each message is not sent to the logfile. 

; 0077 0 !-- 

; 0078 0 

; sit : BEGIN ! Start of LOGEVENT 

3 0081 1 LIBRARY ‘'SYSSLIBRARY:LIB.L32'; 

; set] ! LIBRARY ‘LIB$:OPCOMLIB'; 

: 0084 1 FORWARD ROUTINE 

; 0085 1 DUMP_LOG_ FILE, ! Print a formatted -_" of a buffer 

3 0086 i LOG_MESSAGE, ! Write a message to a log file 

5 0087 1 LOG_MESSAGE_ PUT. ! $PUT a single record of a message 

; 0088 1 LOGEVENT FAO BUFFER, ' Local fao buffer routine 

; R052 } WRITE_LOG_FICE; ' Write a string desc to a log file 

; 0091 1 BIND R 

; 0092 1 EXP1 = ZASCID ‘OPCOM has noticed a condition which might be due to an internal error.', 
; 0093 1 EXP2 = ZASCID ‘It might also be explained by normal events, especially if nodes have just’, 
; 0094 1 EXP3 = ZASCID ‘crashed or rebooted in a VAXcluster. Please bring this message to Digital''s', 
3 s'ae4 : EXP4 = ZASCID ‘attention only if you are having problems with operator communications.'; 
3 0097 1 MACRO 

; m 0098 1 PUT (DESC) = BEGIN 

; ™ 0099 1 BIND DSC = (DESC) : $bblock; 

: 100 m 0100 1 LOGFILE_RAB CRAB$W_RSZ) = .DSC CDSC$W_LENGTH]; 

; 101 m0101 1 LOGFILE_RAB CRABSL_RBFJ = .DSC DSCSA~POINTER); : 

3; 102 m0102 1 $PUT (RAB = LOGFILE_RAB) ! Status is value of the block 
s 105 0103 1 END 2%, 

> 104 m0104 1 PUT_EXPLANATION = 

: 4 — Bite ' ree PUT (EXP1); PUT (EXP2); PUT (EXP3); PUT (EXP4); END 
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GLOBAL ROUTINE DUMP_LOG_FILE (BUFF_DESC : $ref_bblock, ID_DESC : $ref_bblock) = 


OPCSLOGEVENT 
v04= 


+ 

Functional description: 

pa This routine will write a formatted hex dump to the operator log file. 
se This routine will be enhanced later to support mutliple log files. 


Input: 
BUFF _DESC : Address of a string desc for buffer to be dumped 
ID_DESC : Explanatory text for dump 
Implicit Input: 
None. 
Output: 
None. 


! Implict output: 
None. 

Side effects: 
None. 

Routine value: 


If success 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
' 
i 
i 
i 
i 
i 
; TRUE : If ; 
<anything else> : If the log attempt failed 


BEGIN ! Start of DUMP_LOG_FILE 
EXTERNAL 
GLOBAL_STATUS : BITVECTOR, ' OPCOM global status flags 
LOGF ILE_RAB : $bblock, ' RMS control structure 
LOGF ILE_FAB : Sbblock; ' RMS control structure 
LOCAL 
BASE, 
LEFT, 


PTR, 

LCL_DESC : $ref_bblock 

INTER : VECTOR [8, LONG), 
STATUS : LONG; 
See if logging is enabled. 


if (NOT .GLOBAL_STATUS CGBLSTS_K_LOGGING ENABLED]) 
OR | -GLOBAL_STATUS CGBLSTS_K_LOGFILE_CLOSED]) 


WR 0 C@NO UE WN 0 ODN UE WN O OONO UE WN (0 OONOU EWR OOD ONOAULS WR "OV0@ S 
folelelelelelelealelelelelelelelelolelelqlaleololalelelelelelololololelelelelolololelololeolalolololololololo(slolola!) 
ce ce el ce cae ce ce ca ce ce ce ee cea ce cee ce cae ae cee ae can ca cae ee cee ce ce ca ce ca a cae cae ce ce ae ce ca ce ce ee ce a ee ce ee a ee aD ed eB ed dD 


PARQ D Grn BBE BEE EE EAI inno nono nononunund 2 2 2 OOO 
WR OOO NOUS WN 0 CONAUE WN O OO NOAU EWN OO OONOAU EWN O CONOUSWWR—O0OOn 


BO ee Benoa ub Aba Se ee Ree eee Gnubnbumeeen oO 
PRO WNIUSPOROPONOPOPONONOPOPOPONUNONPUNDNYDYD 9 2 


ee ee ee ee i ee eee 


Be Be Be Se Se Se Se Se Se Be Be Se Be Se Ge Se Be Se Se Fe Se Se Ge Fe Ge Ge Ge Ge Se Se Se Ge Se Se Se Se Se Se Se Ge Se Se Se Ge Se Se Se Seas eee Sete Se Sees ee 


9 ne gat 
V04 = 


> «6165 0164 RETURN (TRUE); 

: 183 Hak, 5 F tetesh ane ovtee to head 

: ormat and prin e message header 

168 Sie? 5 | . . 

; 6169 0168 INTER C0) , 0: ' A blank Line 

: 170 0169 PUT (INTER) 

: a pity wt _(LOsEvENT *. BUFFER (ZASCID "S222222222% OPCOM !2D LZAZZT2272X DUMP_LOG_FILE', 0)); 
3 13 P B16 PUT” (LOGEVENT _FAO BUFFER (ZASCID ‘Buffer is !SUL_ (%X!xXw) aiita a= ‘las’ 

3 ire b1e7 ; -BUFF_DESC COSCSW_LENGTH], .BUFF_DESC coscsw. PENGTHI, -ID_DESC)); 
s 176 O123 i Format the buffer, 32 bytes at a time 

s. ter 176 i 

; «(178 0177 LEFT = .BUFF_DESC CDSC$W_LENGTH); 

s 179 0178 PTR = -BUFF DESC CDSCSA_ POINTER): 

; 180 0179 BASE = 

: 181 0180 2 WHILE LEFT GTR 0 

: 182 0181 4% 

3; 183 B86 BEGIN 

3; «(186 0183 3 ! 

3 19? Bige H : Move the next chunk of data to the intermediate buffer 

s 187 0186 3 CHSCOPY (MINU (.LEFT, 32), .PTR, 0, 32, INTER (0J); 

>; 188 P 0187 3 PUT (LOGEVENT_ FAO _BUFFER (%ASCID eC9KL) 'S2AF Me 

; «189 P0188 3 - INTER t72, «1 ‘ R C6), . INTER (5), .INTER C4], 
; 190 P0189 3 * INTER 3) R C2J, .INTER C1J, .INTER (OJ, 
: 191 0190 3 32, INTER toi BASED): 

: 192 0191 3 ! 

: 193 013¢ 3 ! Move to the next chunk 

3 194 0193 3 ! 

; «195 0194 3 BASE = .BASE + 32; 

3; 196 0195 3 PTR = rf: + 32; 

3; 197 0196 3 LEFT = .LEFT = 32; 

; 198 0197 2 END; 

; 199 0198 2 

; 200 0199 2 S$FLUSH (RAB = LOGFILE_RAB); 

: 201 0200 2 

3; 202 0201 2 RETURN (TRUE); 

; 203 0202 1 END; ! End of DUMP_LOG_FILE 


TITLE OPCSLOGEVENT 
-IDENT \V04-000\ 
-PSECT SPLITS,NOWRT ,NOEXE,2 


73 61 68 20 4D 4F 43 50 4F 00 P.AAB: .ASCII \OPCOM has noticed a condition which migh\ 
64 6€ 6F 63 20 61 20 64 65 OF 
67 69 6D 20 68 63 69 68 77 1 
0 65 75 64 68 65 62 20 74 ¢ ASCII \t be due to an internal error.\<0><0> 
0 6C 61 6E 72 65 74 3 68 if 
BS ed 48 P.AAA: .LONG 176s 790 
09 vee of -ADDRESS P.AAB 
BS rt 7 P.AAD: .ASCII \It might also be explained by normal eve\ 
6F 6€ 6E 
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79 «6C 
20 65 


21 20 


mae 
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76 
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ofSrwm 
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NNO 


uw 
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0 


AOANNOO 
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OM NDWOMOOWMOMOUMNNOMOWONALSOMEO-WFSWwMOoMm Wolf 
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OO" OU10 9 DNMNOWS VIWNVM10 NMOWM OOO OO NWOPYFOFYroOom 
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9E 0000 
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\nts, especially if nodes have just\<0> 


1Sou796 


»ADDRESS P.AA 


-ASCII 


ASCII 


- LONG 


D 
\crashed or rebooted in a VAXcluster. PL\ 
\ease bring this message to Digital's\ 


17694796 


-ADDRESS P.AAF 


ASCII 


ASCII 


- LONG 


\attention only if you are having problem\ 
\r with operator communications. \<0> 


17694791 


ADDRESS P.AAH 


“ASCII 


-ASCII 


-ADDRESS P 


ASCII 


-ASCII 


-ADDRESS 
ASCII 


- LONG 


\RERZAALAAVZ_—OPCOM «XD « ALAAAAAATT =u 


\MP_LOG_FILE\<0> 
emer 
\Butter is !SUL (2X!XW) bytes <= ""!AS''\<0> 


<0><0> 


S P.A 
\!8C9XL) !32AF '!XW\<0><0><0> 
17694737 


-ADDRESS P.AAN 


MOVAB 
MOVAB 


U0'0'0 0000 
_. - a ot a 
QS 
> 
a 


AAG 
GLOBAL_STATUS, LOGFILE_RAB 
LOGFILE FAB, SYS$PUT 
SYSSFL USH 
SCODES,NOWRT,2 
DUMP £06 FILE, Save R2,R3,R4,R5,R6,R7.R8,- 
R9,RTO, 
P.AAI, R 
SYS$PUT, R10 


Page 


BeBe Be Se Se Se Se Pe Fe Se Se Se Be Fe Se Fe Se Se Se Se Se Fe Ge Se Se Be Se 
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v06-000 yenseen ORs Vbeb ek | PANE AL Bhigen de ve Oe ese ve 38 
59 00006 CF 9E 0900 MOVAB LOGFILE_RAB, R9 ; 
SE 20 3 3048 SUBL Lost SP~ : 
03 00006 CF 0008 59 0016 - BBS a. GLOBAL_STATUS, 2$ + 016) 
7 00006 CF 63 EO OOO1F 2$: BBS #3, GLOBAL_STATUS, 1$ + 016 
6E 04 000 3 CLRL INTER + 016 
22 Ad 6E 80 00 MOVW OSC, LOGFILE _RAB+34 + 0169 
28 = AD 04 AE 00 00028 MOVL  DSC+4, LOGFICE_RAB+40 : 
59 DD 00030 PUSHL R9 : 
6A 01 FB 00032 CALLS #1, SYSS$PUT : 
7E D4 00035 CLAL 3s = (§P) + 0170 
5B DD 90037 PUSHL R11 : 
0000v CF 02 FB 9 CALLS #2 LOGEVENT. FAO O,BUFFER : 
22 «AD 60 BO 0003 MOVW (RO) : 
28 = AD 04 AO DO 0004 MOVL 4(ROS, metestie RAB*40 : 
59 DD 0004 PUSHL R9 : 
6A 01 FB 00049 CALLS #1, SY YSSPUT : 
22 AG FECC CB B80 0004C¢ MOVW DSC, LOGFILE_RAB+34 : 
28 =AD FEDO CB DO 00052 MOVL DSC+4, ooat ice g _RAB+40 : 
59 DD 00058 PUSHL  R9 : 
6A 01 FB 0005A CALLS #1, SYS$PU : 
22 Ad FF20 CB BO 0005D MOVW DSC, (oer tLe RAB+34 : 
28 =AD FF24 CB DO 00063 MOVL DSC+4, LOGFICE _RAB+40 : 
59 DD 00069 PUSHL R9 : 
6A 01 FB 00068 CALLS YSS$PUT r 
22 A FF74 CB BO 0006E MOVW ose, steer iLe RAB+34 : 
28 =A FF78 CB DO 00074 OVL  DSC4+4, LOGFICE_RAB+40 ; 
59 DD OOO7A PUSHL R9 : 
6A 01 FB 0007C CALLS #1, SYSS$P PUT : 
22 Ag C4 AB BO 0007F MOVW ost, LOGFIL AB+34 $ 
28 = AD C8 AB DO 00084 MOVL  DSC+4, CoaF CER _RAB+40 : 
59 DD 00089 PUSHL R9 : 
6A 01 FB 00088 CALLS #1, SYS$PUT : 
08 AC DD O008E PUSHL ID. DESC : 0173 
2 04 ac 00 00091 MOVL BUFF _DESC, R2 Z 
E 62 3C 00095 MOVZWL (R2), -(SP) : 
7E 62 3C 00098 MOVZWL (Re). -(SP) : 
30 AB OF 00098 PUSHAB ; 
0000v CF 04 FB 0009 CALLS Bah AK OGEVENT FAO BUFFER : 
22. «Ad 60 BO 000A MOVW (RO), LOGFILE RAS 3 ; 
28 = AG 04 AO 00 000A7 MOVL 4(ROS, CoGF ILE” RAB+40 : 
59 DD OOOAC PUSHL RY : 
6A 01 FB OOOAE CALLS #1, SYS$PUT : 
56 62 3¢ 00081 MOVZ2WL (RO), LEFT > 0177 
57 04 Ad dO 000B4 OVL 4tR2s PT : 0178 
58 D4 00088 CLRL «BASE : 0179 
36 DS OOOBA 3$ TSTL EFT : 0180 
1 15 000BC LEQ $ F 
50 56 DO O00BE VL LEFT. RO > 0186 
20 50 D1 000C7 CMPL = RO, #32 ; 
03 1B b00C4 BLEGU 4$ ; 
50 : DO 000C6 OVL #32, RO ; 
20 00 67 0 2c O0¢9 4$ MOVCS RO, (PTR), #0, #32, INTER : 
$f D Soc PUSHL BASE > 0190 
04 Ar F 0001 PUSHAB INTER ; 
20 DD 000D4 PUSHL #32 ; 
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284 bytes, Routine Base: $CODE$ + 0000 


; Routine Size: 


i ne 


OPCSLOGEVENT 
+ 205 03 
ie: 
Ro By 
: el 09 
He een if 
216 021 
oO 
it 13 15 
; 18 0216 
Bo BE 
Bo ORR 
: 228 0221 
: & bss¢ 
Be 
: 327 0995 
a 
: 286 $558 
2 on 
eo 
; 335 $538 
: 36 0234 
OBE 
; 239 0237 
3 40 0238 
> 261 0239 
508 $504 
: 264 0949 
: 245 034 
: 246 0244 
oe Be 
+ 249 pses 
: 250 0248 
BRS 
HO 
2 
: 3$ 55 
; 258 2 
; 259 5 
; 260 0258 
: 261 0259 
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GLOBAL ROUTINE LOG_MESSAGE (RQCB) = 


ee 
! Functional description: 


This routine will write a message described by an MCB 


oF to the operator log file. 


: - This routine will be enhanced Later to support mutliple log files. 
Input: 
RQCB : Address of an RQCB data structure 
Implicit Input: 
RQCB CROCB_L_MCB] points to a valid MCB. 
Output: 
None. 
Implict output: 
None. 
Side effects: 
None. 
Routine value: 


f succes 
f 


TRUE : | s 
<anything else> : If the log attempt failed 


BEGIN ! Start of LOG_MESSAGE 
P 
RQCB : $Sref_bblock; 
EXTERNAL LITERAL 
MCB_K_TYPE; ! MCB structure type 
EXTERNAL 
GLOBAL_STATUS : BITVECTOR; ! OPCOM global status flags 
LOCAL 
ADR : REF VECTOR C, BYTE], ! Adjusted address of string 
LEN : LONG, ! Adjusted length of string 
39 : Lowe ! Adjusted length of single record 
BUF : VECTOR COPCSK_MAXHESSAGE , BYTE), 
BUFP : REF VECTOR C, BYTE), 
MCB : Sref_bblock, ! MCB data structure 
STATUS : LONG; 


. 
e 
. 
e 
. 
e 
- 
° 
. 
o 
- 
. 
7 
* 
. 
o 
~ 
° 
- 
° 
e 
. 
e 
- 
° 
. 
a 
7 
& 
. 
o 
7 
a 
. 
e 
. 
o 
. 
7 
. 
e 
. 
e 
. 
s 
. 
e 
7 
o 
7 
a 
. 
oO 
. 
° 
. 
o 
& 
e 
~ 
. 
. 
o 
- 
e 
+ 
e 
~ 
e 
. 
e 
o 
. 
a 
o 
7 
o 
. 
o 
. 
e 
7 
e 
o 
co 
o 
e 
. 
e 
. 
a 
7 
6 
. 
se 
. 
7 
o 
. 
e 
. 
e 
* 
eo 
. 
. 
e 
. 
” 


_ —_ a 


D1 
OPCSLOGE VENT 16-Sep-1984 01:29:2 AX=11 Bliss-32 V4.0-742 : 9 
MOe bose en eeen aes Pb:ehied «| PARC AL Shiascde yee Oe tse age 03} 


< 
2 


1; 26 60 ; 
is @ 61 : ; 
3 264 6¢ ! Check for a valid MCB. ‘ 
; 265 6 : ; 
i 66 64 2 MCB = .ROCB CROCB L_MCB); | : 
; a4 92 ia EQL 0) OR T.MCB CMCB_B_TYPE] NEQ MCB_K_TYPE) ‘ 
I 4 8 ef RETURN (FALSE); : 
: 4 9 $9 : See if logging is enabled. | ‘ 
co ay, 8 7) IF (NOT .GLOBAL STATUS CGBLSTS_K_LOGGING ENABLED]) ‘ 
is 27% 1 OR (.GLOBAL_STATUS CGBLSTS_K LOGFILE. D ‘ 
is 27s 027 OR ((.$bblock [CROCB CROCB_C_OPTIONSJ, OPC$V_NOLOGJ) AND ; 
ls 16 0 i (.$bblock CRQCB CROCB-L“PRIVMASK1], PRVSV_OPERJ)) ; 
3 8 0 , RETURN (TRUE); 

; 39 0 8 Adjust the string. Remove any trailing control and space characters 

; 8 0280 2 LEN = .MCB MCB_L_TEXTLEN]: 

; 28 0281 2 ADR = .MCB CMCB"L-TEXTPTRI; 

: 284 0 o¢ IF .LEN LEQ 0 

; 285 028 THEN 

> 286 0284 RETURN (TRUE); 

; sor HH + I FROM .LEN-1 TO 0 ! Remove all trailing control and space characters 

; $80 0287 SELECTONE .ADR C.1] OF 

; 290 0288 SET 

; 291 0289 fe TO 32) : LEN = .LEN = 1; ! Bad one, remove it 

; $36 BSa9 OTHERWISE) : EXITLOOP; ! Good one, we are done Looking 

; 294 0994 IF .LEN LEQ 0 ! If we got rid of the whole string, we are done 

; 295 029 THEN 

; 94 0995 RETURN (TRUE); 

: 298 0296 ! Now get ready to filter the string. We will copy it to a local buffer, making some changes. 

; $39 0297 : ignore all control characters except tab and line-feed. Pass tab through, if see a Line-feed 

g BF 8 ss ! then write the record found up to the Line-feed. Do not print zero-length Lines. 

; 302 0300 STATUS = 1,06 RESSASE PUT (0, BUF); ! Put a single blank Line before the message 

3 0301 RECLEN = 0; 

: 304 0302 2 BUFP = BUF: | 

: 05 $38 WHILE .LEN GTR O 

; 306 04 2 DO | 

: 307 0305 BEGIN 

: 08 0306 CHAR = CHSRCHAR_A (ADR); 

: 309 0307 SELECTONE .CHAR OF 

; 310 0308 SET 

$ 6att 8 09 ' 

; \f Beis ; Line feed, print the old record and start a new one | 

: «4314 O36 4 (10) : BEGIN 

5 15 13 4 IF .RECLEN GTR O 

: 316 8 14 4 THEN 

: 17 15 4 STATUS = LOG_MESSAGE_PUT (.RECLEN, BUF); | 

: #318 0316 4 RECLEN = 0; | 

} 
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00000000G 8F 


1 

ese -1984 01:29: 
14- 300-1 bbe 3:85:24 
BUFP = BUF; 

’ END; 

! Misc control char, ignore 


Co TO 8, 11 T0 31] : ; 
Valid char, pass it to the new buffer 
COTHERWISE) : BEGIN 
RECLEN = .RECLEN + 1; 
CHSUCHAR.A A (.CHAR, BUFP); 


, 3 
If we have some data in the new buffer, print it 
if .RECLEN GTR O 

STATUS = LOG_MESSAGE_PUT (.RECLEN, BUF); 


RETURN (.STATUS); 
END; 


I 
4 
4 
4 
; TES; 
LEN = .LEN = 1; 
END 
1 


~-EXTRN MCB_K_TYPE 
-ENTRY Les attr: & ma R2,R3,R4,R5,R6,R7 
MOVAB ee R7 


00FC 00000 
57 0000v CF 9E 00002 OV 
5E F800 CE 9 00007 MOVAB 
51 04 AC DO 0000C MOVL 
50 6C Al DO 00010 MOVL nace, 
03 12 00014 BNEQ 2 
0096 31 90016 1$: BRW 15$ 
AO 08 00 FD 0019 2$: CMPZV #0. #8, 
F1 12 000 BNEQ 1$ 
32 00006 CF 01 €1 900 5 BBC #1, 
2¢ 00006 CF 03 £0 00028 BBS 43. 
05 54 Al €9 00031 BLBC 3—._«B 
23 32. «AI 02 £0 00035 BBS , 
32 30 AO DO 09 A 3$ MOVL 48(¢ 
6 4 ad Dd E MOVL 5 
3¢ D5 0004 TSTL LEN 
17 15 00044 BLEG 4 
50 52 00 0046 MOVL LEN, I 
0B 11 004 BRB $ 
51 6046 9A 00048 4$ MOVZBL (1) CAPRI RI 
20 51 91 4 CMPB ORM, 
1A 2 BGTRU 6$ 
d7 00054 ECL LEN 
F2 FG : 5$: SOBGEQ | 
D5 é$: TSTL LEN 
04 14 B BGTR $ 
50 1 00 0005D 7$: MOVL = #1, 


<oO 
ev 


! End of LOG_MESSAGE 


GLOBAL _STATUS, 1s 
GLOBAL-STATUS, 7$ 


Se Be Se Se Se Se Se Se Ge Se He Se Se Ge FH Se Se Se Se Ge Se Se Se Fe Se Fe Se Se Ge Ge Se Se Fe Se Fe Se Se Se Se Se Se Se Se aese Se Se Se Seas Fe Se Se Ve eease 
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; Routine Size: 178 bytes, Routine Base: S$CODE$ + O1IC 


rey 
_OPCSLOGEVENT 16-Sep-1984 01:29:2 AX-11 Bliss-32 V4.0-742 Page 11 
06-000 ersee=}8Re Pb:e8:2h — PaNC aL Bigs de vaeOe ree, 9° (3) 

04 00060 RET ; : 
| 5E DD 00061 8$: PUSHL + 0300 ; 
D4 0006 CLRL.  =(SP) : : 
67 Q FB 0006 CALLS #2, LOG_MESSAGE_PUT : : 
p4 06 CLRL. - RECLEN : 0301 ; 
| 55 06A MOVAB BUF, BUFP + 030 ; 
D 06D 9$: TSTL LEN 3; 030 $ 

1 OG BLEQ 14$ : : 

54 6 90 1 MOVB (ADR) +, CHAR + 030 ; 
OA 54 91 00074 CMPB ss CHAR, “#10 + 031 : 
1 1 0077 BNEQ : 3 

5 2 9079 TSTL RECLEN + 0313 : 

0 7B BLEG ©-:10$ : ; 

4008 8F BB 00070 PUSHR #*M<R3,SP> + 0315 : 

67 08 FB 00081 CALLS 2 LOG_MESSAGE_PUT : ; 
53 04 00084 10S: CLRL = RECLEN : 0316 : 

55 6E 9E 90086 MOVAB BUF, BUFP + 0317 : 
14 11 00089 BRB 1 : 0307 ; 

08 54 9100088 11$:  CMPB CHAR, #8 + 0322 : 
OF 1B 0008E BLEQU : F 

0B 4 91 00090 CMPB  s CHAR,, #11 : ; 
05 1F 00093 BLSSU : : 

1F 4 91 00095 CMPB ss CHAR, «#31 : ; 
03 1B 00098 BLEQU : ; 

3 16 O009A 128 INCL RECLEN + 0327 : 

85 54 90 0009C MOVB CHAR, +(BUFP)+ : 0328 ; 
52 D7 OOO9F 13$ DECL LEN : 0331 F 

CA 11 O0GA1 BRB 9$ + 0303 : 

53 D5 OOOA3 14$:  TSTL RECLEN : 0336 ; 

0A 15 000A5 BLEQ 16$ : F 

4008 8F BB OO0A7 PUSHR #°M<R3,SP> ; 0338 : 

67 02 FB OO00AB CALLS #2, LOG_MESSAGE_PUT : ; 
04 OOOAE RET > 0340 : 

50 D4 OOOAF 15$:  CLRL RO : 0341 ; 

04 00081 16$: RET F 3 


nnn a 


1 
OPCSLOGEVENT 1b-se -1984 01:29:21 AX-11 Bliss-32 V4.0-742 Page 12) 
v0e~ 1e-8ep- 1382 93:85:25 — LORcom. ShcHeocevent asses 6° a) 
; re 4 ! GLOBAL ROUTINE LOG_MESSAGE_PUT (LEN, ADR) = 
: 23 4G 1 S44 ; 

; rt 8 : Functional description: 
l; 9 8 ‘3 : F Place the record in the log file. 
3 26 0349 1 ! ** This routine will be enhanced Later to support multiple log files. 
; *> 0350 1! #« 
BREET nou 
: ' Input: 
; 2$ 0 2§ 1! - 
3; 3 0354 1! LEN = Length of record ; 
; 358 0355 1! ADR = Address of record 
3; 339 0 2$ 1! 
; 360 0357 1°! Implicit Input: 
; 361 0358 1! 
3 $0 0359 1! None. 
; 0 99 1! 
: 364 0361 1 ! Output: 
; 365 tee +f 
> 366 0365 1! None. 
; wor 0364 1! 
; 368 0365 1 ! Implict output: 
; 369 0366 1! 
3 A 0367 1! None. 
: 71 0368 1! 
3s Sve 0369 1! Side effects: 
5 $7 0370 1! 
3; 374 0371 1! None. 
3; af? 0376 1! 
: 376 0375 1 ! Routine value: 
3 STF 0374 1! 
: 378 0375 1! TRUE : If success 
3; 3 0376 1! <anything else> : If the log attempt failed 
; 380 0377 1 !-- 
; 381 0378 #1 
H $68 0379 2 BEGIN ! Start of LOG_MESSAGE_PUT 
5 3 0380 
: «384 0381 EXTERNAL 
3 Se O38¢ GLOBAL_ STATUS : BITVECTOR, ' OPCOM global status flags 
; 386 038 LOGF ILE_RAB : $bblock, ' RMS control structure 
g 4 Oeae LOGF ILE-FAB : $bblock; ! RMS control structure 
: 89 0386 LOCAL 
; 390 $33 MESSAGE : LONG, ! Error message code 
: 91 88 STATUS : LONG; 
3 3 389 ! 
3 6, 391 Write the message to the logfile. | 
: 395 3 LOGFILE_RAB FRABSW_RSZ] = LEN; | 
; 39% 9 LOGFILE-RAB CRABSL-RBFJ = .ADR; | 
: 397 94 2 GLOBAL_STATUS CGBLSTS_K FLUSH PENDING] = TRUE; | 
: 98 95 F T>(STATUS = $PUT™ (RAB = COGF ILE_RAB)) 
; 400 Hd BEGIN 
; 401 0398 : 
| 


<x 
oO 


> + 


H 
OPCSLOGEVENT shes “19 AX-11 Bliss-32 V 742 Page 13 
yOs-000 1ergeb71982 95:83:23 YOR On. She Sfoee vent esse 9 64) 
: ‘8 i38 The log attempt failed. Compiain if appropriate. : 
; tRe rh} if NOT ~GLOBAL_STATUS CGBLSTS_K_LAST_LOG_FAILEDJ 
: 406 208 nA BEGIN : 
; 40 tbe 4 ! 3 
: rts the 2 } Complain to the appropriate operators. : 
: 610 409 4 NESSAGE = OPC$_LOGFAIL; : 
: ree rts 4 bu eee the remainder will be supplied Later *** 
: 41 410 GLOBAL: STATUS CGBLSTS_K_LAST_LOG_FAILED] = TRUE; 
: 416 411 END; 
3; 415 Belg 
; 416 041 RETURN (.STATUS); 
: 417 0414 
; 418 0415 1 END; ! End of LOG_MESSAGE_PUT 


0004 00000 ENTRY LOG MESSAGE PUT, Save R2 > 0342 
52 00006 CF 9E 9000¢ MOVAB GLOBAL_STATOS, ; 
00006 CF 04 AC. BO 0000 MOVW LEN, LOGFILE _RAB+34 : 039 
00006 CF 08 AC 00 0000D MOVL. ADR, LOGFILE~RAB+40 : 039 
62 80 8F 88 90013 BISB2 #128 GLOBAL STATUS > 0394 
00006 CF 9F 0001 PUSHAB LOGFILE RAB : 0395 
000000006 00 01 Fe 00018 CALLS 7Sysseut : 
OF 50 £8 000 ‘ BLBS 2$ ; 
07 6 02 £0 000 BBS i seagent STATUS, 1$ > 0401 
51 00058034 8F D0 00029 MOVL ‘ 60500, MESS : 0407 
62 04 88 00030 1$: BISB2 , GLOBAL SPAT Es > 0410 
04 00033 2$: RET > 0415 


; Routine Size: 52 bytes, Routine Base: S$CODE$ + OICE 


OPCSLOGEVENT 
v0G=000 
; 420 oi6 
> 421 4) 
3 6 ¢ 4) 
; 4 4) 
> 424 420 
5 ? 5 r 1 
; 4 5 4 : 
; 428 424 
; 429 425 
; 430 4 § 
: 431 4 
: 6 ¢ 426 
3; & 429 
: 4 0430 
: O38 33 
: 437 238 
; 438 434 
; 439 0435 
; 440 04 $ 
: 641 04 
3; «44 0438 
> 46 0439 
: 446 0440 
; 445 044 
13 446 044 
; 4467 044 
; 448 0444 
: $33 0445 
; «645 044 
; 451 044 
3 rt 0448 
3 4&3 0449 
3 4454 0450 
: 4455 0451 
> 456 8636 
3: 457 045 
: 458 0454 
; 459 0455 
; 460 0456 
3; 6461 ott 
3 ro | 458 
: 46 ob 
: 464 460 
3; 465 0461 


: 


LOGEVENT_FAO_BUFFER 
~' LOGEVENT_FAO_BUFFER (CTRSTR : REF VECTORC2], ARGS : VECTOR [4]) = 


desc 
desc 


ibesep-1 
1e-Sep-1 


FUNCTIONAL DESCRIPTION: 


Bc 12:50:45 


AX=-11 BLi 
OPCOM.SRC 


s-32 V4.0-742 
LOGEVENT.832;1 


ZSBTTL "LOGEVENT_FAO_BUFFER’ 


Page 14 
en 


This routine passes an ascii string through the FAO system service with any number of specified para 


INPUTS: 


ctrstr Address of FAO control string descriptor 
args Any number of additional arguments 


IMPLICIT INPUTS: 


none 


OUTPUTS: 


none 


IMPLICIT OUTPUTS: 


none 


ROUTINE VALUE: 


Address of formatted descriptor 


SIDE EFFECTS: 


none 


desc : VECTOR C2, LONG) 


faobuf : VECTOR (Siz, BYTE) 


ab . Fesbuts 


' Set up result descriptor 


$faol (ctrstr=.ctrstr, outlen=desc, outbef=desc, prmlst=args); 
RETURN desc; 
END; 


-PSECT SOWNS,NOEXE,2 
-BLKB 
512 


WF : -BLKB 


~-EXTRN SYS$FAOL 
-PSECT $CODES,NOWRT,2 


OPCSLOGEVENT 
vnG= LOGEVENT_FAO_BUFFER 


Oo 
= 
rau 
fRorore 


000000006 00 
50 


; Routine Size: 38 bytes, Routine Base: 


0004 
we 
aR 
ey 


SCODES + 0202 


1 
Hb-Sep-1984 01:28:21 YaNett BLige-32 y 


R 
ORB Save R2 
OVAB DESC. R2 
MOVZ2WL #512. DESC 
OVAB_ FAOBUF, DESC+4 
PUSHAB ARGS 
PUSHL Re 
PUSHL 
PUSHL  CTRSTR 
CALLS #4, SYS$FAOL 
NOVA DESC, RO 


en 


16-Sep-19 r 91:93:01 AXx-11 Oh igen V4.0-742 Page 


oe hee vent 1 
v04- LOGEVENT_FAO_BUFFER -Sep-19 OPCOM. SRC JLOGEVENT .B32;1 (6 


3 ree ces } GLOBAL ROUTINE WRITE_LOG_FILE (DESC : $Sref_bblock) = i 
3; 469 464 1 !44 
: 470 465 1! Functional description: 
: 471 rh ¢ 1! 
; 47 467 1! This routine will write a message described by simple string desc 
; et re 1 os to the operator log file. 
: 475 236 1 ! ** This routine will be enhanced Later to support mutliple log files. 
3: 47 0471 1! 
3; 467 ti6 1! 
; 478 475 1°! Input: 
; 479 474 1! 
; 480 0475 1! DESC : Address of a string desc 
; 481 pare 1! 
; 48 0477 1°! Implicit Input: 
; 48 0478 1! 
> 484 0479 1! RQCB CROCB_L_MCB) points to a valid MCB. 
; 485 0480 1! 
; 486 0481 1 ! Output: 
; 487 0482 1! 
s 6 0485 1! None. 
: 489 0484 1! 
3; 4 0485 1 ! Implict output: 
3 «491 0486 1! 
; 49 0487 1! None. 
; 49 0488 1! 
3 0489 1 ! Side effects: 
> 495 0490 1! 
3 0491 1! None. 
; 497 0492 1! 
; 498 04935 1 ! Routine value: 
; 499 0494 1! 
: 500 0495 1! TRUE : If success 
; 501 0496 1! <anything else> : If the log attempt failed 
3 206 0497 1 !-- 
; 0498 1 
: 504 0499 BEGIN ! Start of WRITE_LOG_FILE 
; 505 500 
‘3 ©6506 501 EXTERNAL 
* §07 206 GLOBAL_STATUS : BITVECTOR, ' OPCOM global status flags 
. 508 050 LOGF ILE_RAB : $bblock, ! RMS control structure 
3 298 Bene LOGFILE_FAB : Sbblock; . RMS control structure 
; 214 0306 LOCAL 
; 21§ 50 NULLDESC : LONG; ! Only need Length word 
s 3Y £4 
: se 509 ' 
3 312 319 } See if logging is enabled. 
; 219 216 IF (NOT .GLOBAL_STATUS CGBLSTS_K_LOGGING ENABLED]) 
3 18 51 OR (.GLOBAL_STATUS CGBLSTS_K_LOGFILE_CLOSED)) 
3 19 514 THEN 
te 2 ; RETURN (TRUE); 
; § 319 : Format and print the message header 


oer eae vent 
v04- LOGEVENT_FAO_BUFFER 


rae tg 
PU 


1Soseoctgge 01:28:24 


! A blank Line 


AX-11 BL OL igs~ -32 V 
RC OGeVEN 


OPCOM.S 


H 4 0; 
; 5 T (NULLDESC); 
; ; 6 3 1 pur _SLOGEVENT FAO. BUFFER (XASCID "ZXEXRZXRR%% OPCOM !XD XERBXRBXRXX WRITE_LOG_FILE', 0)); 
: H 8 5 : PUT” (LOGEVENT_FAO_BUFFER (XASCID "LAS" DESC); 
: ; 3 03 4 SFLUSH (RAB ="LOGFILE_RAB); 
: 1 0526 ‘ RETURN (TRUE); 
; 532 0527 1 END; ! End of WRITE_LOG_FILE 
.PSECT $PLIT$,NOWRT,NOEXE,2 
50 4F 20 20 25 25 25 25 25 25 25 25 25 25 25 001D0 P.AAP: .ASCII \%%%%¥X%XX%% OPCOM !% R 
25 25 25 33 32 20 0 44 25 $3 3 0 4D 4F 23 O1DF — . en 
2 57 20 0 25 25 25 25 ¢5 25 iE 
45 4C 49 46 SF 47 GF GC SF 45 54 49 OO1F ASCII MITE LO¢_FILE\ 
01060034 00204 P.AAO: ‘LONG 1769% 
00000000" 00208 “ADDRESS P.AAP 
00 00 00 22 53 41 21 22 020C P.AAR: ASCII \"IAS'\<0><0><0> 
01000 o0214 P.AAQ: .LONG 17694725 
00000000' 00218 “ADDRESS P.AAR 
0SC= P.AAA 
DSC= P. AAC 
DSC= P.AAE 
DSC= P. AAG 
.PSECT $CODE$,NOWRT,2 
000c 00000 ENTRY WRITE LOG_FILE, Save R2,R3 
53 000000006 00 9€ 00002 MOVAB SYS$POT, R3 
52 00006 CF 9E 00009 MOV POeF ILE “RAB, R2 
SE 04 C2 0000E SUBL2 #4, SP 
03 00006 CF 01 E 00011 BBS #1, GLOBAL_STATUS, 2$ 
0094 31 00017 1$: BRW 
F7 0000G CF 03 €0 OQOOIA 2$: BBS oa GLOBAL_STATUS, 1$ 
6— 04 00020 CLRL §- NULLDESC 
22 A2 6— BO 00022 MOVW DSC, LOGFILE _RAB+34 
28 = A2 6D 00 00026 MOVL DSC44, LOGFICE_RAB+40 
52 DD O002A PUSHL R 
63 01 FB 00 C CALLS #1, SYS$PUT 
E p F CLRL = (SP) 
0000' CF F 00 1 PUSHAB P.A 
Als AF 2 FB 00035 CALLS ee LocEveNt eFA0 O.BUFFER 
32 A 60 BO 00039 OVW (RO) 
8 A 04 Ad DO 000 p OVL  4(RO ds, LOSER ainst0 
52 DD 0004 PUSHL Re 
63 01 F 44 CALLS #1, SYS$P ur 
32 A 9000" CF B 47 MOVW DSC, LOGFILE RAB+34 
8 A 000° CF D 4 MOVL  ODSC+4, ober ice ARAB S40 
; DD PUSHL R 
63 F CALLS #1, SYS$PUT 
32 A 9000" CF B MOVW DSC, LOGFILE _RAB+34 
A 00' CF D E MOVL  DSC+4, LOGFICE_RAB+40 


-—_——— 


SPLITS 540 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
SCODES 730 NOVEC.NOWRT, RD. EXE.NOSHR, 
SOWNS 520 NOVEC, WRT, RD ,NOEXE,NOSHR, 


Library Statistics 


M B. 
| OPCSLOGEVENT 
Vos -b00 LOGEVENT_FAO_BUFFER 12: 3eb2) 
DD 4 
Say: fh UF Se 
6 AS ~—«(O000" CF BO OOORF 
BP ih 
63 & 7 
F} AS 4 CF 8B 7A 
090° CF 00 00080 
2 0D 8 
63 1 FB 
os AC pp 0088 
0000' fF F 8 
FF43 =F § FB ; 
A 60 B80 0009 
A 04 8 DO 00 Hi 
52 DD OO0A 
63 01 FB Bao ag 
52 DD OO0A 
000000006 00 01 FB QO0A7 
50 01 DO OOOAE 3$: 
04 00081 
; Routine Size: 178 bytes, Routine Base: S$CODE$ + 0228 
s $33 0528 #1 
; 534 0529 1 END ! 
3s 339 0530 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
: eeeeeceecen Symbols eeececceceon 
: File ‘ Total Loaded Percent 

: _$255$DUA28:(SYSL 1831.18. 3251 18619 13 ° 

; 78255$DUA28: COPCOM 06/ JOPCOML1B.L32;1 633 15 


1984 92:80:43 


X-11 Bliss-32 V4.0-742 
OPCOM. SRCILOGEVENT B32; 1 


PUSHL Re 


#1, SYS$PUT 
MOVW nse. LOGFILE E_RAB+34 
MOVL pee $4, COGFICE _RAB+40 


CALLS # PUT 
MOVW DSC, se eryle E_RAB+34 
MOVL Dscts, LOGFICE_RAB+40 
PUSH], R 

CALLS #1, SYS$PUT 

PUSH. DESC 

PUSHAB =P, AAQ 

CALLS #2 LOGE VENT» FAO ae FFER 
MOVW (RO), LOGFILE 

MOVL  4(ROS, POGF ILE” stasis 
PUSHL R2 

CALLS #1, SYS$PUT 

PUSHL R2 

CALLS #1, SYSSFLUSH 

MOVL #1. RO 


End of LOGEVENT 


Pages Processing 
Mapped Time 


ms 


0523 


OPCS$LOGEVENT 
O6-006 LOGEVENT_FAO_BUFFER 


ibrseoctgee 1:28:21 yaNedt Ligs32 v4.0 742 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:LOGEVENT/OBJ=OBJ$:LOGEVENT MSRC$:LOGEVENT/UPDATE=(ENH$:LOGEVENT) 


730 gode + 1060 data bytes 
un Time 718. 
he Time: 1391. 
Lines/CPU Min: 1751 


Lexenes/CPU-Pin: 23511 
penery Used: 135 pages 
Compilation Complete 


Pa 19 
welt | 


AH-BT13A-SE 
VAX/VMS V4.0 


TAL EQUIPMENT CORPORATION 
IDENTIAL AND PROPRIETARY 


0289 


| 029 AH-BT13A-SE QUIPMENT CORPORATION 


| DIG 
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